10 REM demo disc intro program
1000 DATA
10000 KEY
10010 VARNAME
10020 FOR
10030 RETURN
1010 DATA
1030 DATA
1040 DATA
110 PEN
1100 DATA
1108 DATA
1110 DATA
1120 DATA
1140 DATA
1150 DATA
1155 DATA
1157 DATA
1160 DATA
1170 DATA
1185 DATA
120 WAIT VBL
130 GOTO
1999 DATA
20 REM ***********************
2000 REM teddy bear 
2010 ANIM
2020 SPRITE
2030 ANIM
2031 MOVE X
2045 ANIM
2050 RETURN
22 BREAK
25 COLOUR
27 COLOUR
30 WINDOPEN
40 WINDOPEN
50 QWINDOW
500 MUSIC
505 ANIM
510 ON ERROR
530 RUN
550 CLW
60 LOCATE
600 RESUME
70 QWINDOW
700 FADE
71 GOSUB
710 FADE
720 FADE
730 FADE
740 FADE
750 FADE
760 FADE
770 FADE
780 FADE
790 FADE
80 RESTORE
800 IF
810 RETURN
90 READ
999 GOTO